home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / amosgeil.lha / programme / Effekt5.amos / Effekt5.amosSourceCode
AMOS Source Code  |  1994-10-11  |  1KB  |  27 lines
  1. Screen Open 1,640,256,4,Hires : Curs Off : Flash Off : Cls 0
  2. Screen Display 1,128,55,640,256 : Palette 0,0,0,0
  3. Screen Open 0,640,256,2,Hires : Curs Off : Hide : Screen Hide 0
  4.  
  5. 'open in a text-file  (not-amospro-users: set to any other path!!!)
  6. Open In 1,"amospro_Accessories:amospro_help/helptext" : Set Input 10,-1
  7.  
  8. _START=Phybase(0) : _LEN=(Screen Width(0)/8)*Screen Height(0) : P=2
  9.  
  10. Screen 0 : Cls 0 : For I=1 To 20 : Line Input #1,A$ : Print A$ : Next I
  11. Screen 1 : Palette 0,0,0,0 : Copy _START,_START+_LEN To Phybase(0)
  12. Fade P,0,$FFF,0,$FFF : Wait P*15
  13.  
  14. Do 
  15.    Screen 0 : Cls 0 : Home : For I=1 To 25 : Line Input #1,A$ : Print A$ : Next I
  16.    Wait Key 
  17.    
  18.    Screen 1 : Copy _START,_START+_LEN To Phybase(1)
  19.    Fade P,0,$888,$888,$888 : Wait P*7 : Fade P,0,0,$FFF,$FFF : Wait P*7
  20.    
  21.    Screen 0 : Cls 0 : Home : For I=1 To 25 : Line Input #1,A$ : Print A$ : Next I
  22.    Wait Key 
  23.    
  24.    Screen 1 : Copy _START,_START+_LEN To Phybase(0)
  25.    Fade P,0,$888,$888,$888 : Wait P*7 : Fade P,0,$FFF,0,$FFF : Wait P*7
  26. Loop 
  27. 'MARFEL /GROUP[M] 1994